proc simp:
	dup2:
	pgcd:
	rot:
	over:
	div:
	put2:(3.0)
	rolld:
	div:
endp

proc pgcd:
	dup:
	while(0 <> istrue:)
		swap:
		over:
		mod:
		dup:
	endwh
	drop:
	abs:
endp